driven_current_module Module

Driven Current Module

Uses

- kind_module

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=wp),	public		::	zv1(100,2)
real(kind=wp),	public		::	zv2(100,2)

Interfaces

public interface DrivenCurrent

public function DrivenCurrent_constructor(size) result(this)

Arguments

Type	Intent	Optional	Attributes		Name
integer,			value	::	size

Return Value type(DrivenCurrent)

public interface DrivenCurrentResult

public function DrivenCurrentResult_constructor(positive_dc, negative_dc) result(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(DrivenCurrent),	intent(in)			::	positive_dc
type(DrivenCurrent),	intent(in)			::	negative_dc

Return Value type(DrivenCurrentResult)

Derived Types

type, public :: DrivenCurrent

Components

Type	Visibility	Attributes		Name		Initial
real(kind=wp),	public		::	cu			?? может лучше cuj
real(kind=wp),	public		::	cu0			?? cujoh
real(kind=wp),	public		::	c			??
real(kind=wp),	public		::	c0			??
real(kind=wp),	public,	dimension(:), allocatable	::	outj			outj(i) = LH driven current density, MA/m^2
real(kind=wp),	public,	dimension(:), allocatable	::	ohj
integer,	public		::	grid_size

Constructor

public function DrivenCurrent_constructor (size)

Type-Bound Procedures

procedure, public :: evaluate => DrivenCurrent_evaluate

type, public :: DrivenCurrentResult

Components

Type	Visibility	Attributes		Name		Initial
real(kind=wp),	public		::	cup
real(kind=wp),	public		::	cp
real(kind=wp),	public		::	cum
real(kind=wp),	public		::	cm
real(kind=wp),	public		::	cup0
real(kind=wp),	public		::	cp0
real(kind=wp),	public		::	cum0
real(kind=wp),	public		::	cm0

Constructor

public function DrivenCurrentResult_constructor (positive_dc, negative_dc)

Type-Bound Procedures

procedure, public :: print => driven_current_result_print
procedure, public :: save => driven_current_result_save

Functions

public function DrivenCurrent_constructor(size) result(this)

Arguments

Type	Intent	Optional	Attributes		Name
integer,			value	::	size

Return Value type(DrivenCurrent)

public function DrivenCurrentResult_constructor(positive_dc, negative_dc) result(this)

Arguments

Type	Intent	Optional	Attributes		Name
type(DrivenCurrent),	intent(in)			::	positive_dc
type(DrivenCurrent),	intent(in)			::	negative_dc

Return Value type(DrivenCurrentResult)

Subroutines

public subroutine DrivenCurrent_evaluate(this, ROC)

Arguments

Type	Intent	Optional	Attributes		Name
class(DrivenCurrent),	intent(inout)			::	this
real(kind=wp),	intent(in)			::	ROC

public subroutine driven_current_result_print(this, time)

Arguments

Type	Intent	Optional	Attributes		Name
class(DrivenCurrentResult),	intent(in)			::	this
real(kind=wp),	intent(in)			::	time

public subroutine driven_current_result_save(this, time)

Arguments

Type	Intent	Optional	Attributes		Name
class(DrivenCurrentResult),	intent(in)			::	this
real(kind=wp),	intent(in)			::	time